home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / avault1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-16  |  8.7 KB  |  280 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00000000&
  6.    Caption         =   "Avault Browser -"
  7.    ClientHeight    =   7980
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   12990
  11.    Icon            =   "Form1.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    Picture         =   "Form1.frx":030A
  14.    ScaleHeight     =   7980
  15.    ScaleWidth      =   12990
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command11 
  18.       Caption         =   "Stop"
  19.       Height          =   240
  20.       Left            =   1620
  21.       TabIndex        =   18
  22.       Top             =   45
  23.       Width           =   600
  24.    End
  25.    Begin VB.CommandButton Command10 
  26.       Caption         =   "Back"
  27.       Height          =   240
  28.       Left            =   2205
  29.       TabIndex        =   17
  30.       Top             =   45
  31.       Width           =   645
  32.    End
  33.    Begin VB.TextBox Text2 
  34.       BackColor       =   &H00000000&
  35.       ForeColor       =   &H00FFFFFF&
  36.       Height          =   285
  37.       Left            =   2880
  38.       TabIndex        =   16
  39.       Text            =   "www.avault.com"
  40.       Top             =   0
  41.       Width           =   10095
  42.    End
  43.    Begin ComctlLib.StatusBar StatusBar1 
  44.       Align           =   2  'Align Bottom
  45.       Height          =   240
  46.       Left            =   0
  47.       TabIndex        =   15
  48.       Top             =   7740
  49.       Width           =   12990
  50.       _ExtentX        =   22913
  51.       _ExtentY        =   423
  52.       Style           =   1
  53.       SimpleText      =   ""
  54.       _Version        =   327682
  55.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  56.          NumPanels       =   1
  57.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  58.             Object.Tag             =   ""
  59.          EndProperty
  60.       EndProperty
  61.    End
  62.    Begin VB.CommandButton Command9 
  63.       Caption         =   "Hardware"
  64.       Height          =   510
  65.       Left            =   90
  66.       TabIndex        =   14
  67.       Top             =   4365
  68.       Width           =   1410
  69.    End
  70.    Begin VB.CommandButton Command8 
  71.       Caption         =   "Editorials"
  72.       Height          =   510
  73.       Left            =   90
  74.       TabIndex        =   13
  75.       Top             =   3825
  76.       Width           =   1410
  77.    End
  78.    Begin VB.CommandButton Command7 
  79.       Caption         =   "Articles"
  80.       Height          =   510
  81.       Left            =   90
  82.       TabIndex        =   12
  83.       Top             =   3285
  84.       Width           =   1410
  85.    End
  86.    Begin VB.CommandButton Command6 
  87.       Caption         =   "Featured Games"
  88.       Height          =   510
  89.       Left            =   90
  90.       TabIndex        =   11
  91.       Top             =   2745
  92.       Width           =   1410
  93.    End
  94.    Begin VB.CommandButton Command5 
  95.       Caption         =   "Downloads"
  96.       Height          =   510
  97.       Left            =   90
  98.       TabIndex        =   10
  99.       Top             =   2205
  100.       Width           =   1410
  101.    End
  102.    Begin VB.CommandButton Command4 
  103.       Caption         =   "Preveiws"
  104.       Height          =   510
  105.       Left            =   90
  106.       TabIndex        =   9
  107.       Top             =   1665
  108.       Width           =   1410
  109.    End
  110.    Begin VB.CommandButton Command3 
  111.       Caption         =   "Reveiws"
  112.       Height          =   510
  113.       Left            =   90
  114.       TabIndex        =   8
  115.       Top             =   1125
  116.       Width           =   1410
  117.    End
  118.    Begin VB.CommandButton Command2 
  119.       Caption         =   "News"
  120.       Height          =   510
  121.       Left            =   90
  122.       TabIndex        =   7
  123.       Top             =   585
  124.       Width           =   1410
  125.    End
  126.    Begin VB.CommandButton Command1 
  127.       BackColor       =   &H00C0C0C0&
  128.       Caption         =   "Avault Home"
  129.       Height          =   465
  130.       Left            =   90
  131.       TabIndex        =   6
  132.       Top             =   90
  133.       Width           =   1410
  134.    End
  135.    Begin VB.Frame Frame1 
  136.       BackColor       =   &H00000000&
  137.       Caption         =   "Seach For Codes"
  138.       ForeColor       =   &H00FFFFFF&
  139.       Height          =   2535
  140.       Left            =   0
  141.       TabIndex        =   1
  142.       Top             =   5130
  143.       Width           =   1545
  144.       Begin VB.TextBox Text1 
  145.          BackColor       =   &H00000000&
  146.          Enabled         =   0   'False
  147.          ForeColor       =   &H00FFFFFF&
  148.          Height          =   285
  149.          Left            =   45
  150.          Locked          =   -1  'True
  151.          TabIndex        =   5
  152.          Text            =   "Not avilable yet."
  153.          Top             =   1845
  154.          Width           =   1410
  155.       End
  156.       Begin VB.ComboBox Combo1 
  157.          BackColor       =   &H00000000&
  158.          ForeColor       =   &H00FFFFFF&
  159.          Height          =   315
  160.          ItemData        =   "Form1.frx":24034C
  161.          Left            =   45
  162.          List            =   "Form1.frx":2403A1
  163.          Style           =   2  'Dropdown List
  164.          TabIndex        =   2
  165.          ToolTipText     =   "Only Computer game codes are avalible"
  166.          Top             =   945
  167.          Width           =   1455
  168.       End
  169.       Begin VB.Label Label2 
  170.          BackStyle       =   0  'Transparent
  171.          Caption         =   "By Name:"
  172.          Enabled         =   0   'False
  173.          ForeColor       =   &H00FFFFFF&
  174.          Height          =   240
  175.          Left            =   90
  176.          TabIndex        =   4
  177.          Top             =   1485
  178.          Width           =   1365
  179.       End
  180.       Begin VB.Label Label1 
  181.          BackStyle       =   0  'Transparent
  182.          Caption         =   "By Letter:"
  183.          ForeColor       =   &H00FFFFFF&
  184.          Height          =   285
  185.          Left            =   45
  186.          TabIndex        =   3
  187.          Top             =   630
  188.          Width           =   1500
  189.       End
  190.    End
  191.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  192.       Height          =   7260
  193.       Left            =   1620
  194.       TabIndex        =   0
  195.       Top             =   450
  196.       Width           =   11310
  197.       ExtentX         =   19950
  198.       ExtentY         =   12806
  199.       ViewMode        =   1
  200.       Offline         =   0
  201.       Silent          =   0
  202.       RegisterAsBrowser=   0
  203.       RegisterAsDropTarget=   1
  204.       AutoArrange     =   -1  'True
  205.       NoClientEdge    =   0   'False
  206.       AlignLeft       =   0   'False
  207.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  208.       Location        =   ""
  209.    End
  210. Attribute VB_Name = "Form1"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Dim myheight As Integer
  216. Dim mywidth As Integer
  217. Private Sub Combo1_Click()
  218. WebBrowser1.Navigate "Http://www.avault.com/cheats/cheats-" & Combo1.Text & ".asp"
  219. End Sub
  220. Private Sub Command1_Click()
  221. WebBrowser1.Navigate "Http://www.Avault.com"
  222. End Sub
  223. Private Sub Command10_Click()
  224. WebBrowser1.GoBack
  225. End Sub
  226. Private Sub Command11_Click()
  227. WebBrowser1.Stop
  228. End Sub
  229. Private Sub Command2_Click()
  230. WebBrowser1.Navigate "Http://www.avault.com/news/"
  231. End Sub
  232. Private Sub Command3_Click()
  233. WebBrowser1.Navigate "http://www.avault.com/reviews/"
  234. End Sub
  235. Private Sub Command4_Click()
  236. WebBrowser1.Navigate "http://www.avault.com/previews/"
  237. End Sub
  238. Private Sub Command5_Click()
  239. WebBrowser1.Navigate "http://www.avault.com/pcrl/"
  240. End Sub
  241. Private Sub Command6_Click()
  242. WebBrowser1.Navigate "http://www.avault.com/featured/"
  243. End Sub
  244. Private Sub Command7_Click()
  245. WebBrowser1.Navigate "http://www.avault.com/articles/"
  246. End Sub
  247. Private Sub Command8_Click()
  248. WebBrowser1.Navigate "http://www.avault.com/editorials/"
  249. End Sub
  250. Private Sub Command9_Click()
  251. WebBrowser1.Navigate "http://www.avault.com/hardware/"
  252. End Sub
  253. Private Sub Form_Load()
  254. mywidth = Me.Width
  255. myheight = Me.Height
  256. WebBrowser1.Navigate "http://www.avault.com/"
  257. End Sub
  258. Private Sub Form_Resize()
  259. If Me.WindowState = 1 Then
  260. Exit Sub
  261. WebBrowser1.Move 1620, 45 + Text2.Height, Me.ScaleWidth - 1620, Me.ScaleHeight - 45 - Text2.Height - StatusBar1.Height
  262. Text2.Width = Me.ScaleWidth - 2880
  263. Exit Sub
  264. End If
  265. End Sub
  266. Private Sub Text2_KeyPress(KeyAscii As Integer)
  267. If KeyAscii = Asc(vbCrLf) Then
  268. WebBrowser1.Navigate Text2.Text
  269. Exit Sub
  270. Exit Sub
  271. End If
  272. End Sub
  273. Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  274. Me.StatusBar1.SimpleText = Text
  275. End Sub
  276. Private Sub WebBrowser1_TitleChange(ByVal Text As String)
  277. Me.Caption = "Avault Browser - (" & Text & ")"
  278. Text2.Text = WebBrowser1.LocationURL
  279. End Sub
  280.